home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / DUALDEMO.EXE / DUODEMO.BAS < prev    next >
BASIC Source File  |  1991-03-24  |  2KB  |  48 lines
  1. DEFINT A-Z
  2. MODE 2                        'Reset to text in case
  3.                               'screen in graphics mode
  4. IF CARDTYPE <2 COLOR ,31      'Set color if detected
  5. IF CARDTYPE = 4 COLOR ,31
  6. IF CARDTYPE = 6 COLOR ,31
  7. CLS
  8. PRINT CHR$(201) + STRING$(78,205) + CHR$(187);
  9. FOR X = 1 TO 10
  10. PRINT CHR$(186) + STRING$(78,32) + CHR$(186);
  11. NEXT
  12. PRINT CHR$(200) + STRING$(78,205) + CHR$(188);
  13. PRINT CHR$(201) + STRING$(78,205) + CHR$(187);
  14. FOR X = 1 TO 10
  15. PRINT CHR$(186) + STRING$(78,32) + CHR$(186);
  16. NEXT
  17. PRINT CHR$(200) + STRING$(78,205) + CHR$(188);
  18. Task1$ = "Open" : Task2$ = "Open"
  19. "Task1"                       'First Task ... runs
  20.                               'until key is pressed  
  21. DEF PAGE 1,1 TO 78,10
  22. PRINT @(29,10)"";
  23. PRINT "Task1 Executing" Pass1
  24. Pass1 = Pass1 + 1
  25. IF LEN(INKEY$) Task1$ = "Closed"
  26. "Task2"                       'Second Task ... runs
  27.                               'until key is pressed
  28. LONG IF Task2$ = "Open"
  29. DEF PAGE 1,13 TO 78,22
  30. PRINT @(29,22)"";
  31. PRINT "Task2 Executing" Pass2
  32. Pass2 = Pass2 + 1
  33. IF LEN(INKEY$) Task2$ = "Closed"
  34. END IF
  35.                               'Task routing
  36.                               'If First Task still
  37.                               'Open processing
  38.                               'continues
  39. IF Task1$ = "Open" GOTO "Task1"
  40.                               'First Task completed
  41.                               'If Second Task still
  42.                               'Open processing
  43.                               'continues
  44. IF Task2$ = "Open" GOTO "Task2"
  45.                               'Both Tasks completed
  46. DEF PAGE 0,0 TO 79,24
  47. END                               
  48.